home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 November / EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso / earcd / program / amos / amoslist.lzh / AMOSLIST / 000215_amos-request@svcs1.digex.net_Mon Sep 18 03:54:31 1995.msg < prev    next >
Internet Message Format  |  1995-10-02  |  4KB
  1. Received: from svcs1.digex.net (svcs1.digex.net [204.91.197.224]) by mail1.access.digex.net (8.6.12/8.6.12) with ESMTP id DAA09426;  for <mcox@access.digex.net> ; Mon, 18 Sep 1995 03:54:30 -0400
  2. Received: (from daemon@localhost) by svcs1.digex.net (8.6.12/8.6.12) id AAA07331 for amos-out; Mon, 18 Sep 1995 00:11:14 -0400
  3. Received: from mail1.access.digex.net (mail1.access.digex.net [205.197.247.2]) by svcs1.digex.net (8.6.12/8.6.12) with ESMTP id AAA07328 for <amos-list@svcs1.digex.net>; Mon, 18 Sep 1995 00:11:11 -0400
  4. Received: from mail.shlink.de (root@mail.shlink.de [194.64.6.2]) by mail1.access.digex.net (8.6.12/8.6.12) with SMTP id AAA27837;  for <amos-list@access.digex.net> ; Mon, 18 Sep 1995 00:11:07 -0400
  5. Received: from alcatraz.alcatraz.org by mail.shlink.de with bsmtp
  6.     (Smail3.1.29.1 #1) id m0suXRy-000ScmC; Mon, 18 Sep 95 06:04 MET DST
  7. To: amos-list@access.digex.net
  8. Message-Id: <wXCYoMD261aez2@p22.sixpack.pfalz.org>
  9. From: chris@sixpack.pfalz.org (Chris Hodges)
  10. Path: alcatraz.org!sixpack.pfalz.de!chris
  11. Subject: Re: Trasparencies in AMOS
  12. Date: Sun, 17 Sep 1995 12:44:08 +0200
  13. X-Mailer: MicroDot 1.10 [REGISTERED 000261] via Connectline-CLMSortin 2.22
  14. References: <342*angel@labein.es>
  15. X-Gateway: ZCONNECT US shlink.shlink.de [UNIX/Connect v0.71]
  16. MIME-Version: 1.0
  17. Content-Type: text/plain; charset=ISO-8859-1
  18. Content-Transfer-Encoding: 8bit
  19. X-Z-VIA: 19950918053845W+1@alcatraz.org
  20. X-Z-VIA: 19950917172008W+1@sixpack.pfalz.de
  21. X-Z-TELEFON: V+49-89/8005856
  22. X-Z-POST: Kennedystrasse 8; D-82178 Puchheim; Germany
  23. Lines: 73
  24. Status: RO
  25. X-Status: 
  26.  
  27. angel@labein.es (Angel Alvarez) wrote on 12.09.1995 some text under the
  28. subject Trasparencies in AMOS. I can't leave this uncommentated ;-)
  29.  
  30. AA> A short question. Anyone knows how to do trasparencies in AMOS?
  31.  
  32. What kind of transparencies? Normally, it's quite easy to do if you just
  33. write into single bitplanes. The following example program will explain
  34. the technique:
  35.  
  36. ' *************************************  
  37. ' *                                   *  
  38. ' *     Bitplane Overlay Demo V1.0    *  
  39. ' *        Written by C. Hodges       *  
  40. ' *                                   *  
  41. ' *************************************  
  42. '
  43. Randomize Timer
  44. Hide 
  45. Screen Open 0,320,256,8,0
  46. Curs Off : Flash Off : Paper 0 : Pen 1 : Cls 
  47. Palette 0,$F00,$F0,$FF0,$F,$F0F,$FF,$FFF
  48. Ink 1 : Circle 31,31,31 : Paint 31,31,1
  49. Get Bob 1,0,0 To 64,64 : Hot Spot 1,31,31
  50. Ink 2 : Circle 31,31,31 : Paint 31,31,1
  51. Get Bob 2,0,0 To 64,64 : Hot Spot 2,31,31
  52. Ink 4 : Circle 31,31,31 : Paint 31,31,1
  53. Get Bob 3,0,0 To 64,64 : Hot Spot 3,31,31
  54. ' This will tell amos only to draw in specific bitplanes.
  55. Set Bob 1,1,1,%11100010
  56. Set Bob 2,1,2,%11100010
  57. Set Bob 3,1,4,%11100010
  58. Cls 
  59. Double Buffer 
  60. Autoback 0
  61. Bob Update Off 
  62. Dim D(2,5)
  63. For A=0 To 2
  64.   D(A,0)=Rnd(288)+32
  65.   D(A,1)=Rnd(50)+32
  66.   D(A,4)=D(A,0) : D(A,5)=D(A,1)
  67.   Repeat 
  68.     D(A,2)=Rnd(10)-5
  69.   Until D(A,2)
  70.   D(A,3)=0
  71. Next 
  72. Do 
  73.   For A=0 To 2
  74.     Cls 0,D(A,4)-32,D(A,5)-32 To D(A,4)+32,D(A,5)+32
  75.     D(A,4)=D(A,0) : D(A,5)=D(A,1)
  76.     If D(A,0)+D(A,2)>288 Then D(A,2)=-Rnd(4)-1
  77.     If D(A,0)+D(A,2)<32 Then D(A,2)=Rnd(4)+1
  78.     If D(A,1)+D(A,3)>224 Then D(A,3)=-D(A,3)+1
  79.     Add D(A,0),D(A,2) : Add D(A,1),D(A,3) : Inc D(A,3)
  80.   Next 
  81.   For A=0 To 2
  82.     Bob A+1,D(A,0),D(A,1),A+1
  83.   Next 
  84.   Bob Draw 
  85.   Screen Swap 
  86.   Wait Vbl 
  87. Loop 
  88.  
  89. Bye, Chris Hodges <chris@sixpack.pfalz.org>      __   __
  90. A4000/40/5MB/400HD/CD; AMOS Extension-Coder __  ///  / / _____
  91. GCS d H s-:++ !g p? !au a18 w++ v? C+++     \\\///  / /_/ ___/ LOGOUT
  92. E---- N++ K- W------ -po+ t++@ !5 j-- R+ G?  \XX/   \__/ __/  FASCISM!
  93. tv- b+ D-- B? e+(++)* u++ h! f !r n+ !y+ AMIGA RULEZ!  \/
  94.  
  95. Aberbeeg (vb.)
  96.   Of amateur actors, to adopt a Mexican accent when called upon to
  97.   play any variety of foreigner (except Pakistanis - for whom a Welsh
  98.   accent is considered sufficient).
  99. (from: "The Deeper Meaning of Liff")
  100.